(archive-summarize-files): Add help-echo to mouse-highlighted text.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 4afb71509c7473df7b0717468d06d6a656e2cfe3..e814d4d40c3afe6a3bd2d6a9669872aaeca36640 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -746,9 +746,11 @@ when parsing the archive."
        (let ((text (concat (aref fil 0) "\n")))
          (if archive-lemacs
              ()                        ; out of luck
-           (put-text-property (aref fil 1) (aref fil 2)
-                              'mouse-face 'highlight
-                              text))
+           (add-text-properties
+            (aref fil 1) (aref fil 2)
+            '(mouse-face highlight
+              help-echo "mouse-2: extract this file into a buffer")
+            text))
          text)))
      files)))
   (setq archive-file-list-end (point-marker)))